<% dim emailAddress dim listTypeValue dim subscribeTo '--------------------------------------------------- ' cstr converts to a string '--------------------------------------------------- emailAddress = cstr(request.form("email")) listTypeValue = cstr(request.form("listtype")) '--------------------------------------------------------------------- ' test for aol email address '--------------------------------------------------------------------- ' ' if (instr(ucase(emailAddress),"@AOL.COM") > 0) then ' subscribeTo = "subscribe rokenbok_updates_aol" ' '--------------------------------------------------------------------- ' not aol, test for html or plain list '--------------------------------------------------------------------- ' ' else ' if (ucase(listTypeValue) = "HTML") then ' subscribeTo = "subscribe rokenbok_updates_html" ' else ' subscribeTo = "subscribe rokenbok_updates" ' end if ' end if ' '--------------------------------------------------------------------- ' send email to ListCert (dups commands in "Send email to Lyris) '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="listcert@rokenbok.com" cdoMail.from=emailAddress cdoMail.subject="remove rokenbok_updates" cdoMail.Body="html switch " cdoMail.Send set cdoMail=nothing set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="listcert@rokenbok.com" cdoMail.from=emailAddress cdoMail.subject="subscribe rokenbok_updates_html" cdoMail.Body="html switch " cdoMail.Send set cdoMail=nothing '--------------------------------------------------------------------- ' send email to lyris '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="lyris@lyris.rokenbok.com" cdoMail.from=emailAddress cdoMail.subject="remove rokenbok_updates" cdoMail.Body=" " cdoMail.Send set cdoMail=nothing set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="lyris@lyris.rokenbok.com" cdoMail.from=emailAddress cdoMail.subject="subscribe rokenbok_updates_html" cdoMail.Body=" " cdoMail.Send set cdoMail=nothing '--------------------------------------------------------------------- ' send confirmation to rokenbok '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="maillist@rokenbok.com" cdoMail.from="lyris" cdoMail.subject="Switch Text to HTML " + emailAddress dim bodyText bodyText = bodyText + "Email address: " + emailAddress + vbcrlf bodyText = bodyText + "List unsubscribed to: Text" + vbcrlf bodyText = bodyText + "List subscribed to: HTML" + vbcrlf cdoMail.Body = bodyText cdoMail.Send set cdoMail = nothing %>

	Your information has been submitted. Now you should receive 2 seperate e-mails. The first e-mail (from "Lyris ListManager") should confirm that you have been unsubscribed from our Text newsletter (rokenbok_updates). You may safely delete this e-mail. The second e-mail will indicate that your confirmation is needed to complete the subscribed to our HTML newsletter (rokenbok_updates_html).  For your protection, we need you to confirm your subscription request by simply hitting "Reply" and then "Send".  That's all you need to do! Thank you for joining our HTML mailing list!

Home | What is Rokenbok? | Toy Catalog | Construction Zone | About Us | Learning Benefits | Support | Contact Us Dealer Locator | Join Mailing List | Warranty Registration | Privacy Statement | Terms of Use ©2002 by Rokenbok Toy Company. All Rights Reserved.